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able of contents 
‘¢ 3 pian ATIONS 
(3) 121 EXESLOAD_CODE = Perform actual Code Load 
(4) 3 9 EXESLOAD_NONPAGD = Load code into non paged memory 
(5) 46 EXESLOAD PAGED = Load code into paged memory 
(6) 561 EXESSYS_SECTION = Create a system section 
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«TITLE LOADSUB = System Code Loading Subroutines 
“IDENT "yOusb00" . - 


‘AAA ARARRRRRARRRRARSAREA AAAS ASAE SALES ESLER RAR R REESE SESE SEER REET ESE RETR EE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE oe ae THE 


NC 0 NOTIC SOF TWARE 0 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


pe ee fee foe lo fo fol ololololololololo) 


CSOooooooooooo 


;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: System Code Loader 


Abstract: These routines performs operations to load code into 
system address space. 


Environment: Kernel Mode. 


SSSSSSSSSSSSSSSSSSSSSSSSsssq 
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0 3 
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0 ; 

0 : 

0 

8 : Author: Jeffrey W. Horn, Creation Date: 1-MAR-1983 

6 ; Modified by: 

0 : v03-007 wMc0007 Wayne Cardoza 12-Jan-1983 

0 ; SYSWRTABL should make sections CRF. 

6 ; V03-006 wMC0006 Wayne Cardoza 05-Jan-1984 

8 : Make sure SPTs released on error. 

; v03-005 wMc0005 Wayne Cardoza 09-Dec-1983 
: Enable all ISD checking. 

0 ; V03-004 wMC0004 Wayne Cardoza 07-Sep-1983 
4 : Make sure we never use SYSGEN private copy of cells. 
00 ; V03-003 wMC0003 Wayne Cardoza 29-Jul-1983 
09 : More of the same. 
6 : v03-002 wac0002 Wayne Cardoza 24-Jun-1983 
4 ; Fix assorted bugs after testing. 


yy 
8 = fraten Code Lending Subrecions, "CATR ET NOME RET, Md, 


28 $ v03-001 wmc0001 Wayne Cardoza 24-May-1983 
; Complete it. 
i: 
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LSBTTL DECLARATIONS 


: Include files: 


: 
; Macros: 


SR eB De Be | es De De De 


ad 
nm 
vrm 
oC 
m 


SVADEF 
SWCBDEF 


: Equated Symbols: 


MEW | OOD NAUE WIN $$ O OD NOUE AN OOONOUE WwW 


> Own Storage 


at a ot tt 4 AQOQODOODOO0OO OOOO 00000 00000000 0000 09 09 0909 SI INI NINN NIN NINO A AAAAO 


3 3 — table, Ye, yeed a By pa o pretanysen seses into 
100 3 codes which allow at least Kerne e writea y 
00 101 KW_TBL: .BYTE PRTSC_NA ; NA => NA 
1 1 § -BYTE PRTSC_RESERVED ; RESERVED => RESERVED 
§ 1 -BYTE PRTSC_KW 3 KW => KW 
104 -BYTE PRTSC_KW 3; KR => KW 
105 -BYTE PRTS$C_UW 3 => UW 
5 1 $ «BYTE PRTSC_EW 3 Ew 
6 1 -BYTE PRTISC_ERKW ; ERKW => ERKW 
1 3 -BYTE PRTSC_ERKW 3; ER => ERKW 
1 -BYTE PRTSC_SW ; => SW 
110 -BYTE PRTSC_SREW 3; SREW => SREW 
& 111 -BYTE PRTSC_SRKW 3; SRKW => SRKW 
A 1 § -BYTE PRTSC_SRKW 3; SR => SRKW 
Cc 1 gto PRTSC_URSW 3; URSW => URSW 
D 114 -BYTE PRTSC_UREW ; UREW => UREW 
E 115 -BYTE PRTSC_URKW 3; URKW => URKW 
E : § -BYTE PRTSC_URKW 3; UR => URKW 
1 8 STORAGE: 
00000418 1 -BLKB “X408 
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-SBTTL EXESLOAD_CODE = Perform Actual Code Load 


v04~000 
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344 
; EXESLOAD_CODE - Perform Actual Code Load 


This subroutine makes code resident in system space, either 
as a new system section for pageable code, or read into 
created system virtural address space for nonpageable code. 

Calling Sequence: 

CALLS #2,EXESLOAD_CODE 


Input Parameters: (AP offset) 


Sete Sete Ge Se Ge Ge Ge tee 


00000004 CHAN = 4 3; channel file is accessed on 


Implicit Inputs: 
Contents of the image file including Image Header and Prologue in 
first block of image. 


Output Parameters: (AP offset) 


Sete Ge Ge Ge Ge Ge te 


RO = Completion Status 
RETADR = 8 :; address to return starting VA 


; Implicit Ouputs: 
No 


ne. 


00000008 


Side Effects: 


Sete Se Ge Ge te Se 


SEPEERRRRRERREERERRRORRORRERROORERRORER RO EE. 


PREP RRR RRR RR RR RRR ER RR PRR PRR RRR RR PR RR PRP PPP PPP PRR RPP PPP PRE 


MAB & & ERP PPNNNY 


OOFC qty EXESLOAD_CODE ,“M<R2,R3,R4,R5,R6,R7> 
: MOVAB =<<2%*X200>+8>(SP) ,SP ; allocate scratch space 
2 MOVL ; Save scratch space address 
53 FBF2 CF 9E MOVAB STORAGE,R3 
: Read in image header into buffer 
56 0400 C3. DE MOVAL “X400(R3),R6 ; save addr of I0SB 
$Q10W_S EFN = #1,- 
CHAN = CHAN(AP),- 
FUNC = #10$_READVBLK,- 
IO0SB = (R6)>- 
Pi = (R3),- 
Ps = #512,- 
Pp = #1 
01 50 8 BLBS RO,208 3 get out on error 
4 198: RET 
50 $6 f 208: MOVZWL (R6),RO ; get IOSB status 
F9 E BLBC RO, 10$ 3; get out on error 


COS POOF FREER RAT MMMM DD & P 00000000000 00000000 00 00.00 09 09 09 00.00.0900 09 0009000902 C000000000000000 1 
ma a ed et = ot 2 9 = ts = a ss os me 
NNN NN NIA A AAAAAAA OA MUIMNUUMIUIUIUIUIUIE BEE EEE RE WWIII IIIoRononononorononn 


NOMA WIN 9 OD NAME WIN 9 OD NAME WIN OOO NAU EW 0 ODNOUE WN OUWONOUS win 
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= System Code Loading Subroutines -SEP-1984 00:28:37 VAX/VMS Macro v04-00 Pa 
EXESLOAD CODE - forties Actual Code Load sets fi 90:28:32 EeYS SRCTLOADSUB-MAR: 1 - (3) 
4 178 ; Now read in first page of ima 
tT eae piieciss 
54 0200 C E 04 181 MOVAL “X200(R3),R4 ; get addr of image buffer 
51 104A A 1 ; MOVZBL IHD$B_HDRBLKCNT(R3),R1 3 get number blocks in header 
51 D6 04 1 {Met R1 ; one past is first block of image (P3) 
458 184 QIOW_S EFN = #1,- 
458 185 CHAN = CHAN(AP),= 
458 1 ‘ FUNC = #10$_READVBLK,- 
458 1 IOSB = (R6),- 
0458 «1 3 P1 = (R4),- 
458 1 PS = #512,- 
458 190 P = Ri 
c9 50 ? 47D 191 BLBC RO,10$ 3; get out on error 
50. 66) 3C 480 19¢ MOVZWL (R6),RO : get 10SB status 
C3 50 =—«E9 ret 132 BLBC RO, 10$ 3; get out on error 
2.) 66SlUlUCU Oc8e 195 MOVZWL (R3),RO 3; offset to ISD's 
33 04 9 196 ADDL3 RO,RS,R2 
O48 198 
Step 199 ; Allocate enough SPTEs for image 
SB gHe 
56 8 AG 3C 048d o¢ MOVZWL 8 tp SIZE(R4) ,R6 ; code size 
HOON BHR SSR BUN Lt Senet ee 
0490 205 DSBINT 25$° - : go to SYNCH and lock down code 
55 OOOOO000'EF 9E& 04A7 06 MOVAB MMG$A_SYSPARAM,RS5 ; make sure we don't use SYSGEN private copy 
5 9200" te DO O4A 07 MOVL Booscl SPTFREL-EXESA_SYSPARAM(R5) ,R7 : first free SPT 
50 56 2 C1 048 08 ADDL3 = R7,R6 ; new free pointer 
0000'C5 = H tl Haas RO BOOSGL._SPTFREH-EXESA_SYSPARAM(RS 3; enought left? 
> branc no 
0000'cS 50 00 reg 1 oo ae RO,BOOSGL_SPTFREL-EXESA_SYSPARAM(R5S) ; record the allocation 
TT: ace 18 BRB 26$ 
gcc8 15 NOSPT: ENBINT 
50 0244 8F 3¢ 4CB 1g MOVZWL #SSS$_VASFULL,RO 
mi Sr oy eae 
00000008 bl 4 25$: -LONG IPLS$_SYNCH 
50 14 +4 HF ; ERRTYP: pov #SS$_BADPARAM,RO 
4D 26$: 
56 O2A a 409 4 SUBW 5 FRO PROCHT INE? RE ; SPT left after first ISO 
0 1 40D 5 BGEQ 7$ ; done here so driver load works 
OOA 3 4DF § BRwW BAOUBR ; image header doesn't match SLV 
ws ¥ 57 09 $ ES 27$: ASHL #9,R7,@RETADR(AP) 3_return address of loaded code 
08 BC IF €E2 O4E : BBSS  #VASV_SYSTEM,@RETADR(AP) .28$ 
tee 28$: 
4eC ? : Set up initial parameters for load routines 
7 pd QaeC - PUSHL R7 ; first SPT 
7E E A O4EE 4 MOVZ8L #PRTSC_URKW,-(SP) ; driver protection 
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MOVZWL ISDSW_PAGCNT(R2),-(SP)_: page c 
MOVZBL IHD$B-HDRBLKCNT(R3),=(SPS ; start ven. = one past image header 
PUSHL CHAN(AP) : channel 


PUSHL #5 3 argument count 
Drivers get special treatment - single ISD 


CMPB § VSB_TYPE(R4) ,MDYNSC_DPT ; see if driver 


BNEQ $ ; branch if not 
ALS (SP) ,EXESLOAD_NONPAGD =; go load non paged code 
BRW NONPAG_ERR 
RET 
CMPB SLV$B_TYPE(R4) ,ADYNSC woo ; see if loadable code 
BNEQ ERRTYP if not 
BITL #ISOSM_DZRO ! ISDSM_ wc EcrOR - 
' ISD$SA_GBL i ISD$M~FIXUPVEC - 
! be te “PROTECT PT SBSL FLAGS (R2) 
BNEQ BADHD ; illegal ISD types 


Set up argument List for loader for next ISD 

MOVL ISD$L_VBN(R2) ,STRTVBN(SP) ; starting image VBN 

MOVZWL ISDS$W"PAGCNT(R2), PAGECNT { T(SP) ; ISD pagecount 

BBS #ISD$O_WRT, ISDSL_FLAGS(R2) b: te it uritesdte 

ae SLV$B_ BRoT. _R(R4) 7B* KPROT SPS: ; get read-only page protection 
MOVZBL SLVSB_PROT_W(R4),B*PROT(SP) ; get writeable page protection 
Pick the correct loader routine 


BBC S*#EXESV_SYSPAGING, @#EXESGL FLAGS, 70$ ; branch if not paging 
CMPB styse_ SUBTYP(R4) ,ADYNSC_PAGED ; see if pageable 


SUBW ISD $u PAGCNT(R2) ,R6 
ADDL ERaTent SOP) -SPvkaP) 
40 


ao 
— 
” 
mn” 
. 


too nent pages in the image 
next 
process next ISD 


BEQL “; branch if so 

CALLG 7 At -NONPAGD =; go load non paged code 

BLBC 0,NONPA 

BRB 508 

CALLG fg ocr pees 3; go ap paged c 

BLBC R ah $ ; must be no STX. = t try to clean up mess 
Next ISD 

MOVZWL 1308y. SIZE(R2) ,R3 

ADDL ; next ISD 

bday 13634 SIZE(R2) ; are we done 

BLSS BADHDR 3; error - there can't be this many ISD's 


-————————_—_---- 
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v04-000 EXESLOAD. CODE - Perform Actual Code Load mi ioet 7 80:28:38 SYS.SRCJLOADSUB.MAR; 1 . by 
1 9 
50 601 sf 1 38 1908: MOVZWL #SSS$_NORMAL,RO 
4 4 3 110$: RET 
5 : 96 .DSABL LSB | 
50 00000044 8F D0 ; 38 BADHDR: MOVL  #SS$_BADIMGHDR,RO 
58C 0 NONPAG_ERR: | 
07 OO000000'SF 00° £1 058C 1 BBC S*#EXESV_SYSPAGING @MEXESGL_ FLAGS, 5$ ; branch if not paging 
02 OB AS 91 0594 ¢ CMPB SLVSB_SUBTYP(R4) ,#BYNSC_PAGED ; see if pageable 
01 12 0598 BNEQ $ 3; branck if so 
04 OS9A 4 RET ; don't try to clean up if paged 
50 pp Bees 82 5$: PUSHL RO ; save error status 
56 08 A4 C 0590 6 MOVZWL sy SIZECR4) ,R6 ; code size 
56 QOOOO1FF 8F £8 05A1 07 ADDL #511,R6 ; get a page count 
56 56 F7 BF 78 O5A8 308 ASHL.  #=9,R6,R6 
59 «6S 56 C1 O5AD 09 R6,R7_RO 3 save next SPT after ours 
0581 10 DSBINT 50$ 3 go to SYNCH and lock down code 
58  OO0000000'FF47 DE O05 11 MOVAL @MMGSGL_SPTBASECR7],R8 =; SVAPTE of first SPT 
50 68 15 OO EF 05¢ le 10$:  EXTZV  #PTESV_PFN, #PTESS_PFN,(RB),RO ; get the PFN 
21 13° OSC 1 BEQL 20$ ; done 
QOOOO00O'FF40 D& OSCA 14 CLRL bes por dh ah ; clear back pointer 
COO00000'FF40 B7 O5D1 15 DECW @PFNSAW_REFCNTCROJ ; decrement the ref count 
4 12 05D8 16 BNEQ ; some one knows about it - give up 
OQOOOO000'EF 16 OSDA 17 JSB MMGSDALLOCPFN ; free PFN 
8 D4 OSE 18 CLRL RB)+ 3; invalidate PTE 
OQOOOO000'EF 06 OSE 19 INCL PFNSGL_PHYPGCNT ; count the freed page 
856 FS OSE 20 SOBGTR e 
50 QOO00000'EF 9E OSE 1 20$: MOVAB MMGS$A_SYSPARAM,RO ; make sure we don't use SYSGEN private copy 
0000'CO 459 D1 OSF : CMPL  R9.BOO$SGL_SPTFREL-EXESA_SYSPARAM(RO) ; can we give back the SPTs 
os 62 «6OSF BNEQ $ ; no - more have been allocated 
0000'cO 57 pd O5F9 4 MOVL R7 ,BOOSGL_SPTFREL-EXESA_SYSPARAM(RO) ; reset free SPT pointer 
OSFE 5 30$ ENBINT 
50 8E&€ D0 0601 6 MOVL (SP)+,RO0 
04 0604 7 RET 
00000008 0605 328 50$: -LONG IPL$_SYNCH 
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LOADSUB = System Code Loading Subroutines -SEP-1984 00:28:37 VAX/VMS Macro Vv04-00 Page 
yOen008 EXESLOAD .NONPAGD - (ead code into non pa g7 SEE 19 4 89:28:38 EOYS SRCILOADSUB-MARS 1 ° 
° 2 9 -SBTTL EXESLOAD_NONPAGD = Load code into non paged memory 
p++ 
é : ; LOAD_NON_PAGED = Load code into non paged memory 
609 3 3 This routine loads code into non paged memory using the following 
609 § ; algorithm: 
609 5 
609 8 ; a For each SPT: 
O88 9; a. Allocate a physical page 
609 40 ; b. Fill in PFN data-base 
289 41 ; C. Fill in SPT. 
609 tg 5 ¢: Read in code into new address space 
$088 ree 3 Set page protection on new address space. 
Bebe 45 ; Page protection is the PROT(AP) value unless page is first page in 
609 +8 : image or the WRITEABLESYS parameter is set, then the protection is 
+484 rt 3 translated into one which allows at least kernel mode write. 
0609 49 ; Calling Sequence: 
0609 50 ; 
0609 318 CALLS #5,EXESLOAD_NONPAGD 
0609 26 ; 
bebe 37 ; Input Parameters: (AP offsets) 
00000004 0609 55 CHAN = 4 ; Channel file is access on 
00000008 0609 56 STRTVBN = 8 ; image start VBN 
0000000C 0609 57 PAGECNT = 12 ; number of pages to be loaded 
00000010 0609 58 PROT = 16 3 protection to be applied 
00000014 0609 59 SPT = 20 : first SPT index 
0609 60 ; 
0609 61 ; Implicit Inputs: 
0609 6¢ ; 
0609 63 ; Output Parameters: 
0609 64 ; 
0609 65 ; Implicit Outputs: 
0609 66 ; 
0609 67 ; Completion Codes: 
0609 68 ; 
609 4 3; Side Effects: 
609 0; 
te 
O7FC en 78 ENTRY EXESLOAD_NONPAGD, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10> 
54 14 AC 09 78 goe8 75 ASHL #9, SPTCAP) ,R4 3 compute VA of assigned SPT 
0054 ##1F €2 9610 a: BBSS #VASV_SYSTEM,R4,10$ > set system bit 
614 4 3 Now fill in those PTEs 
14 79 ; 
614 0 
oie 13 Set up loop 
57 4A dO 14 : 10$: MOVL SPTCAP),R7 : get initial SPT index 
58 00000000'FF4 43 61 4 MOVA @MMGSGL_SPTBASECR7],R8 ; get SVAPTE of first PTE 
59 OC ac O1 C § 2 SUBL #1,PAGECNT(AP) ,R9 3 get ending index 


eee 
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t 
Vv OAD_NONPAGD = Load code into non pa 5- 7:23. CSYS.SRCILOADSUB.MAR; 1 (4) 
6 7; 
? ; For Each PTE: 
6 30 : Allocate a PFN 
? ; 35 08: DSBINT 40$ 3 go to SYNCH and Lock down code 
00000000 ' 9F 16 > 3: oe a*MMGSALLOCPFN ; attempt to allocate a PFN 
30 D 6 ; 95 TSTL R 3 check status 
a 39 BLSS 30$ ; branch if no page allocated 
6 2 a8 : Fill in PFN data base 
QOOO0000'FF4O B86 be 9 78 INCW @PFNSAW_REFCNTCROJ 3 set reference count 
*FF40 6849 OD 640 401 MOVAL (R8)CR9OJ,aPFNSAL_PTECRO); set VAPTE in PTE back pointer 
0000'FF40 07 9 0649 40¢ MOVE #PFNSC_ACTIVE,a@PFNSAB_STATELRO) ; set state as active 
1000000 N000000"SF BY ORS bbe ROVE =I SPERSABLTYFECROI — Set Eype as system page 
3 on 
50 90000000 8F C9 O065F 405 BISL3 #<PTESR ALIDIPTESC_Ku>, Ge ee 
49 b666 106 RO, (RB) ERO 3 set valid prot, PFN into PTE 
p088 $38 ; Look at next PTE 
ee oe te, ene, 
Bees 218 ENBINT 3 finished with memory man. 
10 11 vee aiz BRB READCOD 
50 0124 8F 3¢ ee 415 30$: MOVZWL #SS$_INSFMEM,RO 
0678 416 INVALID 
0678 417 ENBINT 
ag ES ey 
00000008 067F #420 40$: -LONG IPLS$_SYNCH 
se 
8 4 § : Now read in actual code 
S83 458 
Oe 2 § READCOD: 
7E 7¢ 6 6 8 CLRQ -(SP) ; allocate IOSB 
52 5E 3 6 4 MOVL SP,R2 ; get IOSB address 
50 OC AC 09 ; ? ? ‘om ; + Fae te} besides ; byte count (P2) 
= 7 
68D $36 “CHAN = CHAN(AP),=- 
68D 4 FUNC = #10$_READVBLK,- 
68D 434 IOSB = (R2),- 
Bote a 
SBD 8 PS = STRTVBNCAP) 
01 50 8 O6AC 4 3 BLBS RO,6$ 
be 6AF 439 5$: RET 3; get out on error 
50 $¢ f rr 440 6$: MOVZWL (R2),RO ; get iosb status 
9 E 685 441 BLBC «RO, S$ 
Ss &@ @& rer rh ADDL #8,SP ; deallocate I0SB | 
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v04-000 EXESLOAD_NONPAGD - Lead code into non pa BrSEp 19 4 9:28:35 USYS. SRCILOADSUB.MAR: 1 - (4) 
$89 444 ; 
68 445 ; Now set the page protection on these pages 
689 rr 3 
689 44 
68 448 eseiyt 20$ 3; get to SYNCH and lock down code 
59 AC 01 C3 06C 449 SUBL #1, PAGECNT(AP) RO ; get index of last PTE 
10 AC DO 06CB 450 MOVL PROT(AP),R : get protection code 
00000000'9F 00° €1 ort 451 BBC B eeebar tine an _* 
6D 138 a#EXESGL flags. $ ; branch if no WRITEABLESYS 
53 §927 CF4 9A 0604 45 MOVZBL KW Tet R3),R 3 change prot to at least kern write 
50 6849 DE 6DA 454 10$:  MOVAL  (RB)CR9OI,RO : get SVAPTE of page 
60 F 6D 455 INSV R3,#PTESV_PROT, - 
O6E 456 #PTESS PROT, (RO) ; set page protection 
F459 F4& OQ6E 457 SOBGEQ R9,10$ 
06E6 458 
06E6 459 INVALID 
O6E9 460 ENBINT 
O6EC 461 
50 01 DO O6EC 46¢ MOVL § #SS$_NORMAL,RO 
04 O6EF 46 RET 
00000008 O06FO 464 20S: -LONG IPL$_SYNCH 

O6F4 465 
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ERRCHN: ~ {a #SS$_IVCHNLSEC RO 


-ENTRY EXESLOAD_PAGED, “M<R2,R3,R4,R5,R6,R7,RE,R9,R10> 
MOVL CHAN(AP) ,RO 


LOAD - System Code -SEP-1984 00:28:37 VAX/VMS Macro v04-00 Page 1 
¥00-000 EXESLOAD_PAGED © Lond cone into paged me 'SSEPa19B6 Oo:hei25 Leys ERCTOADSUD Mans 1 apt 
ore reef ~SBTTL EXESLOAD_PAGED = Load code into paged memory 
ore igs p++ 
ti rth ; EXESLOAD_PAGED = Load code into paged memory 
6F4 $%6 3 This routine does not homely load the code into System Poged Memory 
tl 1S 3 but instead sets up a System Section which can then be paged in. 
6F4 475; Page protection is the PROT(AP) value unless page is first page in 
6F4 $28 : image or the WRITEABLESYS parameter is set, then the protection is 
ta rt 4 3 translated into one which allows at least kernel mode write. 
bere 138 ; Calling Sequence: 
O6F4 480 ; 
O6F4 481; CALLS #5,EXESLOAD_PAGED 
O6F4 4 § ; 
O6F4 4835 ; Input Parameters: (AP offsets) 
06F4 484; 
O6F4 485 ; CHAN = 4 ; channel file is accessed on 
O6F4 486 : or WCB address 
O6F4 487 ; STRTVBN = 8 ; image start VBN 
O6F4 rt +3 $ PAGECNT = 12 ; number of pages to be loaded 
O6F4 489 ; PROT = 16 i; protection to be applied 
O6F4 490 ; = 20 : index of first SPT 
O6F4 491; 
O6F4 492 ; Implicit Inputs: 
06F4 493; 
O6F4 494 ; Output Parameters: 
O6F4 495 ; 
O6F4 496 ; Implicit Outputs: 
O6F4 497; 
O6F4 3; Completion Codes: 
O6F4 : 
O6F4 3; Side Effects: 
O6F4 ; 
6F4 
6F4 
6F9 
OFA 
OFA 
FC 
0 


3; get channel number 
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703 JSB a# lOCSVERIFYCHAN :; get CCB address 

7 BLBC RO,ERRCHN 

70 MOVL CCB ; WIND(R1) ,R4 i get WCB adddress 

71 10$:  BBSS  #WCBSU_SHRWCB,WCBSB_ACCESS(R4),20$ ; set share bit of WCB 
ne 3 branch if already set 
ata ASSUME WCBSW_REFCNT EQ WCBSL_PID+2 

ate ROTL #16,#1 ,WCBSL_PID(R4) ; make PID invalid, refcount = 1 

71 208: DSBINT #IPL$_ASTDEL ; don't let process be deleted 

1s MOVL @#MMGSGL_SYSPHD.RS ; get address of system heade 


JSB @#MMGSALCSTX ; allocate a system section 


LOAD - System Code Loading Subro fees” SE 4 00:28: AX/VMS Macro v04-00 Page 1 LO 
100-000 EXESLOAD_PAGED = Load code into paged me "97S P= 138 §8:28 35 EOS SRCILOADSUB-MAR: 1 ° (3) vo 


75 5 E9 072F 4 BLBC oe out on error 
58 2 20 A C1 07 § 5 ADOL3 Puss tH alla RS, rb ? "hese address qf section table 
8 6841 DE Q7 § MOVAL : add ress of section table entry 
66 D4 40738 CLRL SECSL C8 3 no channel control block address 
OC AB »: 3 73D 3 MOVL SECSL cre OW (RB) > set window control block address 
10 A 08 AC p fa) ; ROVE ini NUP), »SECSL_VBN(R8) ; start VBN of section 
08 A8& 85 D 74A 1 MOVL R? sort yorery cae) 3; starting SPT index 
14 ABB ror 3 CLRW 30s SEC SWF XGs (RB) ro section flags 
\¢ AB OC AC 00 O7 MOVL PAGECRT(A B  SECSL sro tell ; size of section in pages 
18 As Bf 7 DO 0756 4 MOVL oor NiCAP)“SECSLCR 3; number of jlutetanding references 
3 no section indices 
4 A D4 4 . 5 CLRL SECSW_SECXFL(R8) ti indi 
53 10 AC 00 07 8 MOVL PROT(AP) ,R3 ; get protection code 
00000000'9F 00° €1 076 3 BBC S“*#EXESV_SY nate o° 
OA Bre @#EXESGL FLAGS, 30$ ; branch if no WRITEABLESYS 
53 rer) CF43 9A O76A 40 MOVZBL KW_TB oR change prot to at least kern write 
02 aS 0770 541 BSW #SECSH CRF ,SECSW nase cabs ; make it 
51 10 10 00000240 8F FO 0774 4¢ 30S: INSV TESALT yP1 !PTESM_TYPO>a@-1 16. 
77D 4 416 “Rl ore section type pte 
51 04 53. FO 0770 544 INSV RB, data PROT giPTESS prt ik : set prot code into pte 
58 $0000000' 9 DO 07 : 545 MOVL arhn RB ; pa SPT base address 
58 6847 of 07 278 MOVA : get SVAPTE of first PTE 
59 OC ac O1 C€ o788 es SUBL in etn }—e Rg 3; get index of Last PTE 
6849 51 00 $738 549 408: MOVL R1,(R8)CROI 3; set PTE contents 
F9 59sFG o738 a2 SOBGEQ R9.40$ 
03 08 AG 03 ~«©€1 «20799 236 BBC #WCBSV_SHRWCB,WCBSB -ACCESS(R4), 50$ ; branch if not shared WCB 
OE AS BS 54; $27 INCW WwCBSW_ REF CNT(R4) ; count another pointer to WCB 
07A1 555 50$: INVALID 
50 01 9A Brae 228 MOVZBL #SS$_NORMAL ,RO 
O7A7 558 608: ENBINT 
04 O7AA 559 RET 


J 4 
1 
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100000 EXESSYS. SECTION - Create a system sectio eet 39:28:38 USyS SRCILOADSUB-MAR; 1 . (6) 
ne -SBTTL EXESSYS_SECTION = Create a system section 
7AB p++ 
1" : ; EXESSYS_SECTION = Create a system section 
7AB 66 : This routine will create a system section. 
7AB os : Page protection is the PROT(AP) value unless page is first page in 
7AB § 3 image or the WRITEABLESYS parameter is set, then the protection is 
is oY 3 translated intc one which allows at least kernel mode write. 
se ye ; Calling Sequence: 
7B i : CALLS #5,EXESSYS_SECTION 
1" 6 : Input Parameters: (AP offsets) 
0000004 07AB 28 > SECCHAN = 4 : Channel file is access on 
0000008 07AB 7 SECSTRTVBN= 8 ; image start VBN 
4 44-69 07AB 0 SECPAGECNT = 12 ; number of pages to be loaded 
0000001 O7AB 1 SECPROT = 16 3; protection to be applied 
OAR 5 : Implicit Inputs: 
7AB C4585: Output Parameters: 
00000014 hoe 56 SECRETADR = 20 : address to return VA 
O7AB 88 : Implicit Outputs: 
ton 39 : Completion Codes: 
7AB 38 : Side Effects: 
7AB 93 ; 
ani 
O7FC Looe 38 ENTRY EXESSYS_SECTION, “M<R2,R3,R4,R5,R6,R7,R8B,RI,RI0> 
7AD 398 : Allocate enough SPTEs for image 
FA 800 * 
56 OC AC dO 7AD 601 MOVL bananas 
781 one DSBINT $ 3; go to SYNCH and Lock down code 
55 Sasa 646 3 9 6 MOVAB MMGSA_SYSPARAM,RS ; make ayre we don't use SYSGEN private copy 
5 9000" 5 dd O7C 6 4 MOVL.  BOOSGC_SPTFREL-EXESA_SYSPARAM(R5).R7 ; first free SPT 
0 3 C 7C 5 ADOL3 oR ; new free po nter 
0000'¢ 0 01 O7¢ 606 CMPL RO, BOOSGL_SPTFREH-EXESA_SYSPARAM(RS) ; enought left? 
9A 14 07D 6 BGTR : branch if not 
0000°C5 , «ff 43 608 1 RO, BOOSGL_SPTFREL-EXESA_SYSPARAM(RS) ; record the allocation 
0D 11 hey 219 BRB 268 
7DC o1¢ 20$ ENBINT 
50 0244 8F 3 7DF 61 MOVZWL #SS$_VASFULL,RO 
ree oi3 RET 
00000008 res ei6 ttt -LONG IPLS_SYNCH 
7E 1 6$: 


& 
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y0e-000 Exebere SECTION Create @ system sectio 823 Pa} 984 89:28:35 ES YS SRCILOADSUB-MARS 1 = (6) 
14 8C 57 9 7 7€9 1 ASHL #9 ,R7,@SECRETADR (AP) ; return address of loaded code 
58 
146C WF E ze pa BBSS  #VASV SYSTEM, @SECRETADR(AP) , 28S 
7F : ; 
cr ° ¢ 3 Set up parameters for load routines 
57 pd O7F3 624° PUSHL 7 ; first SPT 
7E 10 AC A 7F 625 MOVZBL SECPROT(AP),-(SP) $ driver protection 
7E o¢ AC DO O7F 666 VL SECPAGECNT(AP) ,-(SP) ; page count 
7E 8 AC D 7FD) 6 VL SECSTRTVBN(AP) ,-(SP) : start VBN 
04 AC ODD B94 6 g PUSHL SECCHAN(AP) s channel 
FEF CF 05 FB 8 3 0 CALLS #5,EXESLOAD_PAGED 
04 0809 631 T 
O80A 6 ; 
O80A 6 


L 4 
LOADSUB = System Code Loading Subroutines 16-SEP-1984 :28: AX/VMS Macro V04-00 
Symbol table , ° misery 99: 78:3 YOYS SRCILOADSUB_ MAR: 1 
= 1 PRTSC_NA 2 
SAOHOR Soo00ses Rt PRTSC-RE SERVED ; 9 
BOOSGL _SPTFREH eeeerene K 1 PRTSC_SREW s 9 
BOOSGL “SPTFREL eererere 8X 1 PRTSC_SRKW = A 
CCBSL_GIND = 00000004 PRTS$C_Sw = 8 
HAN . 4 PRTSC_UREW s D 
DYNSC_DPT = 1 PRTSC_URKW z E 
DYNSC_LOADCODE = 8 PRTSC_URSW = C 
DYNSC” PAGED = 0 PRT$C_UW = 000 4 
ERRCHN O0006F4 R 1 PTESC_KW = 100 
ERRTYP 0000405 R 1 PTESM_TYPO = 004 
EXESA_SYSPARAM erereeee 8 6X 1 PTESM_TYP1 = 04 98 
EXESGC_FLAGS eereeeee § x 1 PTESM_VALID = 80 
EXESLOAD_CODE 0000418 RG 1 PTESS_PFN = 0000 BA 
EXESLOAD_NONPAGD 0000609 RG 1 PTESS_PROT = 00000 Of 
EXESLOAD PAGE 00 : A RG 1 PTESV_PFN = 00000000 
EXESSYS SECTION 000007AB RG 1 PTESV- PROT s aoe 
EXESV_SYSPAGING eeeerene 1 READCOD 0000683 R 01 
EXESV_SYSWRTABL eerereee x 1 RETADR = 00000008 
IHD$B8_HDRBLKCNT = 00000010 SECSL_CC = 00000000 
10$_READVBLK = 00000031 SECSL_PAGCNT = 44 4 3 
IOCSVERIF YCHAN eeeeeree =X 01 SECSL_REF CNT = 0000001 
IPL$_ASTDEL = 44 444 SECSL_VBN = 00000010 
IPL$_ SYNCH = 0000000 SECSL_VPXPFC = 00000008 
1SOSC_FLAGS = 00000008 SECSL_WINDOW = 0000000C¢ 
1SO$L_VBN s eae SECSM_CRF = 0000 80e 
1SD$M_DZRO = 00000004 SECSW_FLAGS = 0000001 
1SOSM_F IXUPVEC = 00000400 SECSW_SECXFL = 00000004 
1SD$SM_GBL = 00000001 SECCHAN = 00000004 
ISDSM_PROTECT = 00040000 SECPAGECNT = 4 444 65 
ISOSM_VECTOR = ate SECPROT = 0000001 
SDSV_WRT = 80 000 SECRETADR = 00000014 
1SD$W_PAGCNT = 0000000 SECSTRTVB = 00000008 
SD$W"S1Z = 0000000 SLVS$B_PROT_R = 0000000C 
kw_ TBC 00000000 R 01 SLV$B_PROT Ww = 444 
MMGSALCSTX eeeeerer = Xx 01 SLV$B_SUBTYP = 00000008 
MMGSALLOCPFN teeeeree = = X 01 SLVSB_TYPE = 0000000A 
MMGS$A_SYSPARAM eeeeeeee =X | OT SLV$W_SIZE = 00000008 
MMGSDALLOCPFN tererere§ = X 01 SPT 2 444 14 
MMGS$GL_SPTBASE eererere = = X 01 SS$_BADIMGHDR = 00000044 
MMGSGL_SYSPHD eererere = =X 01 SS$_BADPAR = B088 14 
NONPAG_ERR 0007 8E R 4 SS$_INSFMEM = B85 See 
0 sie R 1 SS$_IVCHNLSEC = 000 C 
1 = 0000000C SS$"NORMAL = 99 01 
PFNSAB_STATE etereree 8 6X 1 SS$~ VASFULL 2 4 
PFNSAB_TYPE eeeeeree xX 1 STORAGE 80088 19 a 01 
PFNSAL_PTE eeeeenee 8X 1 STRTVBN = 0000000 
PFNSAW_REFCNT eeeeeeee x 01 SYS$Q10W aeeeeere GX 01 
PFNSC_ACTIVE = 00000007 VASV_SYSTEM = 4 1F 
PFNSGC_PHYPGCNT getenrter x 01 WCBSB_ACCESS = 000 fe 
PHD$SL_PSTBASOF F = 00000020 WCBSL_PID = 000 g 
PRS_! eeererer 1 WCBSV~SHRWCB z $ 0 
PRS _TBIA eeeeeeee x 1 WCBSW_REFCNT = OO0E 
pro’ = 10 
PRTSC_ERKW = 
PRTSC_EW z 
PRTSC_KW s 
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Psect synopsis . ° “SEP-1 138 89: 28: 35 ESYS. SRC JLOADSUB.MAR; 1 = 


PSECT name Allocation PSECT No. Attributes 

- ABS . 4 O80, 0 ¢ 9. NOPIC USR CON ABS’ LCL cote NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . A { 2088: of 1 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 80000 ( . 2¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE AD WRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.05 0:00:01. 
Command processing 136 00:09:00-91 00:00:03-67 
Pass 1 408 00:00:15.12 BR: 08 08 
Symbol table sort 0 00:00: FF 4 at 
Pass 2 121 00:00:03.04 33:8 :08.2 
Symbol table output 14 B3:B 3°48 00:00:00.47 
Psect synopsis output 3 B38 08.8 a Sha 
Cross-reference output :00:00.00 00:00: 3-9 
Assembler run totals 696 00:00:21.24 00:01:09.2 


The working set Limit was 1650 pages. 

87480 bytes (171 pages) of virtual memory were used to buffer the intermediate §g¢e- 

There were 90 pages of symbol geote, anees al Located to hold 1555 non-local and 39 Local symbols. 
633 source Lines were read in Pass 1, producing y object records in Pass 2 

31 pages of virtual memory were used to define 30 macros. 


we me ee ee ee ee ee ee eee ee ew we} 


Macro library name Macros defined 
-§ 55$DUA B: SYS.OBJJLIB.MLB;1 15 
$255$DUA28:(SYSLIBISTARLET. MLB; 2 1 

TOTALS (all Libraries) 2 


1718 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:LOADSUB/0BJ=0BJ$:LOADSUB MSRC$:LOADSUB/UPDATE=(ENH$:LOADSUB) +EXECML$/LIB 
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